#!/usr/bin/perl

use strict;
use warnings;
use v5.10;

my @numeros = 1..100;

for ( my $i = 0; $i < 10; $i ++ ) {
    for ( my $j = 0; $j < 10; $j ++ ) {
	print splice( @numeros, rand(@numeros), 1 ), " ";
    }
    print "\n";
}
	
	
